perm filename FOO[F81,JMC]2 blob sn#625822 filedate 1981-11-23 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	MacLisp Ready
C00003 ENDMK
CāŠ—;
MacLisp Ready
T 
;DEFINE UNDEFINED FUNCTION OBJECT
;BKPT UNDF-FNCTN
;FACT UNDEFINED FUNCTION OBJECT
FACT 
;IF FUNCTION UNDEFINED AFTER AUTOLOAD
;BKPT UNDF-FNCTN
FACT 
6. 
(defun fact(n) (cond ((zerop n) 1) (t (times n (fact (sub1 n))))))


(fact 3)